home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0500.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  768 b   |  41 lines
  1. NOTE ML0500 - CODE DESCRIPTION FILE MAINTENANCE        9/14/84
  2. DO WHILE T
  3. ERASE
  4. ?
  5. ?
  6. ? '    MAILING CODES MAINTENANCE AND PRINT'
  7. ?
  8. ? '        1 - ENTER/UPDATE/DELETE CODE DESCRIPTIONS'
  9. ? '        2 - PRINT CODES LIST'
  10. ? '        3 - PURGE DELETED RECORDS'
  11. ?
  12. ? '           99 - RETURN TO MAIN MENU'
  13. ?
  14. ?
  15. INPUT 'SELECT OPTION' TO IP
  16. DO CASE
  17. CASE IP=1
  18.     DO ML0510
  19. CASE IP=2
  20.     USE ML0500 INDEX ML0500I
  21.     SET CONSOLE OFF
  22.     REPORT FORM ML0500 FOR .NOT.* TO PRINT
  23.     SET CONSOLE ON
  24.     USE
  25. CASE IP=99
  26.     RELEASE IP
  27.     RETURN
  28. CASE IP=3
  29.     USE ML0500
  30.     PACK
  31.     INDEX ON CODE TO ML0500I
  32.     USE
  33. ENDCASE
  34. ENDDO
  35. SE ML0500
  36.     PACK
  37.     INDEX ON CODE TO ML0500I
  38.     USE
  39. ENDCASE
  40. ENDDO
  41.